#!/usr/bin/perl
# ce programme se charge de cr�er la structure une page HTML
# qu'il �crit sur la sortie standard
$fichier1= "desqueyroux.ang";
$fichier2= "desqueyroux.fr";
open(FILEINPUT1,"$fichier1");
open(FILEINPUT2,"$fichier2");
print "<HTML>\n";
# on �crit l'ent�te
print "<HEAD><TITLE></TITLE></HEAD>\n";
# on �crit le corps de la page
print  "<BODY>\n";
$i=0;

print "<table>";
while(($ligne1 = <FILEINPUT1>)&&($ligne2 = <FILEINPUT2>))
{
	$j=$i+1;
	print "<tr>";
	print "<td>$j</td>";
	if ($ligne1)
	{
		print "<td>$ligne1</td>";
	}
	else
	{
		print "<td></td>";
	}
	if ($ligne2)
	{
		print "<td>$ligne2</td>";
	}
	else
	{
		print "<td></td>";
	}
	print "</tr>";
	$i+=1;
}
print "</table>";
print  "</BODY>\n";
# on �crit la fin du fichier html
print  "</HTML>\n";